home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD016a.dsk / PAL.99352.JOYCE.JAN.83.A.bas < prev    next >
BASIC Source File  |  2003-06-12  |  3KB  |  57 lines
  1. 10  HOME : TEXT : VTAB 1
  2. 20  PRINT  SPC( 6)"DTACK GROUNDED 68000 BOARD"
  3. 21  PRINT  SPC( 6)"----- -------- ----- -----": POKE 34,4
  4. 25  PRINT : PRINT 
  5. 30  PRINT "SINCE JUNE I HAVE OWNED ONE OF THESE"
  6. 40  PRINT "AND HAVE FOUND IT FASCINATING.  IF YOU
  7. 50  PRINT "WANT YOUR BASIC TO GO FASTER (OR YOUR
  8. 60  PRINT "PASCAL ), THEN YOU WILL FIND IT USEFUL,
  9. 61  PRINT "SINCE YOU GET SOFTWARE WITH IT THAT
  10. 62  PRINT "SPEEDS UP APPLESOFT MATH FUNCTIONS,
  11. 63  PRINT "INCLUDING COMPILED APPLESOFT.  OUTSIDE
  12. 64  PRINT "VENDORS AND HOBBIESTS HAVE FOUND WAYS
  13. 65  PRINT "TO SPEED UP PASCAL, ALSO.
  14. 66  GOSUB 1000
  15. 67  PRINT "WHAT IS MOST FUN FOR ME IS THE EASIER
  16. 68  PRINT "AND MUCH MORE POWERFUL ASSEMBLY LANGUAGETHAT THE 68000 HAS, AS OPPOSED TO THE"
  17. 69  PRINT "6502 IN THE APPLE.  I AM NOT A VERY
  18. 70  PRINT "SKILLED ASSEMBLY PROGRAMMER, BUT HAVING"
  19. 71  PRINT "SIGNED AND UNSIGNED MULTIPLY AND DIVIDE
  20. 72  PRINT ", LOTS OF REGISTERS AND ABOUT EVERY MOVEINSTRUCTION (REGISTER TO REGISTER,
  21. 73  PRINT "REGISTER TO MEMORY, MEMORY TO REGISTER,
  22. 74  PRINT "MEMORY TO MEMORY ), ANYONE WOULD WANT,
  23. 75  PRINT "ALONG WITH A VARIETY OF ADDRESSING TYPESHAS MADE THE JOB EASIER THAN THE 6502.
  24. 76  PRINT "THE GREAT INCREASE IN SPEED HASN'T HURT,EITHER.  AND YOU GET LOTS OF SOURCE CODEAND SOFTWARE TO LEARN FROM AND SHOW OFF.
  25. 77  GOSUB 1000
  26. 80  PRINT "IF ANY OF THIS INTERESTS YOU, THE DTACK GROUNDED NEWSLETTER HAS MORE INFORMATION, AND COVERS MORE THAN JUST THE 68000,
  27. 81  PRINT "OFTEN HUMOROUSLY.  THE PRICE IS $15 FOR
  28. 82  PRINT "6 ISSUES, WITH BACK ISSUES AVAILABLE.
  29. 83  PRINT "THE LATEST ISSUE I HAVE IS #16, BUT
  30. 84  PRINT "#17 IS ABOUT DUE.  FOR ADS GO TO MICRO
  31. 85  PRINT "JAN. 83, PG. 14, NIBBLE VOL. 3, #8, P34
  32. 86  PRINT "OR PEELINGS II DEC. 82, P22.  PEELINGS
  33. 87  PRINT "REVIEWED THE BOARD IN APRIL 1982.
  34. 88  PRINT : PRINT "THE LAST PRICE LIST WAS IN #13 AND WENT
  35. 89  PRINT "FROM $595 FOR A 4K-8MHZ BOARD TO $1123
  36. 90  PRINT "FOR A 92K-12.5MHZ BOARD.  THERE IS ALSO
  37. 91  PRINT "A 128K EXPANSION BOARD, MORE THAN ONE OFWHICH CAN BE ADDED, BUT I DON'T KNOW THEPRICE.  ALL SALES ARE DIRECT, WITH MONEYON THE TABLE.
  38. 92  GOSUB 1000
  39. 100  PRINT "THE MANUFACTURERS ADDRESS IS:
  40. 101  PRINT : PRINT  SPC( 11)"DIGITAL ACOUSTICS"
  41. 102  PRINT  SPC( 11)"1415 E. MCFADDEN, STE. F
  42. 103  PRINT  SPC( 11)"SANTA ANA, CA  92705
  43. 104  PRINT  SPC( 11)"(714) 835-4884
  44. 110  PRINT : PRINT : PRINT "IF YOU WANT TO CONTACT ME ABOUT THE     BOARD OR ANYTHING ELSE, MY ADDRESS IS:   
  45. 111  PRINT : PRINT  SPC( 11)"BILL JOYCE
  46. 112  PRINT  SPC( 11)"1920 LUTHER PLACE
  47. 113  PRINT  SPC( 11)"RICHLAND, WA  99352
  48. 114  PRINT  SPC( 11)"(509) 943-0930
  49. 120  VTAB 23: INVERSE : PRINT "HIT ";: FLASH : PRINT "R";: INVERSE : PRINT " TO REPEAT, OR ";: FLASH : PRINT "Q";: INVERSE : PRINT " TO QUIT TO BASIC"
  50. 121  PRINT "ANY OTHER KEY FOR MENU";: NORMAL : GET A$
  51. 125  IF A$ = "R"  THEN 10
  52. 130  IF A$ = "Q"  THEN 998
  53. 135  TEXT : HOME 
  54. 140  PRINT  CHR$(13) + CHR$(4)"RUNPAL.MENU"
  55. 998  TEXT : HOME 
  56. 999  END 
  57. 1000  VTAB 24: INVERSE : PRINT "HIT ANY KEY TO CONTINUE";: NORMAL : GET A$: HOME : VTAB 5: RETURN